home *** CD-ROM | disk | FTP | other *** search
/ Dr. Windows 3 / dr win3.zip / dr win3 / DATABASE / FOXRYAN.ZIP / VERIFY7.PRG < prev    next >
Text File  |  1993-07-20  |  1KB  |  44 lines
  1.  
  2.   ╓─FOR m.i = 1 TO 22
  3.   ║    m.form = "form" + ALLTRIM(STR(m.i))
  4.   ║    m.dbfile = m.form + ".dbf"
  5.   ║    *;if m.i = 3 or m.i = 11
  6.   ║    *;    m.qn = -1
  7.   ║    *;else
  8.   ║    m.qn = -2
  9.   ║    *;endif
  10.   ║  ╓─FOR m.j = 0 TO 7
  11.   ║  ║    m.letter = IIF(m.j = 0, "", CHR(m.j-1+ASC("A")))
  12.   ║  ║    m.rptfile = m.form +  ALLTRIM(m.letter) + ".frx"
  13.   ║  ║    ?m.rptfile
  14.   ║  ║    SELECT 0
  15.   ║  ║  ┌─IF NOT FILE(m.rptfile)
  16.   ║  v═══════EXIT
  17.   ║  ║  └─ENDIF
  18.   ║  ║    USE &rptfile ALIAS REPORT
  19.   ║  ║    GO TOP
  20.   ║  ║    LOCATE FOR report.objtype=8
  21.   ║  ║  ╔═DO WHILE NOT EOF()
  22.   ║  ║  ║  ┌─IF INKEY()=27
  23.   ║  ║  ║  │    SUSPEND
  24.   ║  ║  ║  └─ENDIF
  25.   ║  ║  ║    m.expr = report.expr
  26.   ║  ║  ║  ╒═DO CASE
  27.   ║  ║  ║  ╞═CASE m.qn = -2
  28.   ║  ║  ║  │    m.expr = m.form + ".today"
  29.   ║  ║  ║  ╞═CASE m.qn = -1
  30.   ║  ║  ║  │    m.expr = m.form + ".facility"
  31.   ║  ║  ║  ╞═CASE m.qn = 0
  32.   ║  ║  ║  │    m.expr = m.form + ".passzone"
  33.   ║  ║  ║  ╞═OTHERWISE
  34.   ║  ║  ║  │    m.qt = m.form + '.q' + ALLTRIM(STR(m.qn))
  35.   ║  ║  ║  │    m.expr = 'iif(' + m.qt + '=1, "X", "O") + " Yes   " + iif(' + m.qt + '=2, "X", "O") + " No   " + iif(' + m.qt + '=3, "X", "O") + " N/A"'
  36.   ║  ║  ║  ╘═ENDCASE
  37.   ║  ║  ║    REPLACE report.expr WITH m.expr
  38.   ║  ║  ║    m.qn = m.qn + 1
  39.   ║  ║  ║    CONTINUE
  40.   ║  ║  ╚═ENDDO
  41.   ║  ║    USE
  42.   ║  ╙─ENDFOR
  43.   ╙─ENDFOR
  44.